home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / examples / exflist0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  2.0 KB  |  84 lines
  1. unit Exflist0;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, AdProtcl, AdPStat, AdTerm, AdPort, StdCtrls;
  8.  
  9. type
  10.   TExampleFList = class(TForm)
  11.     ApdComPort1: TApdComPort;
  12.     ApdTerminal1: TApdTerminal;
  13.     ApdProtocol1: TApdProtocol;
  14.     ApdProtocolStatus1: TApdProtocolStatus;
  15.     ApdProtocolLog1: TApdProtocolLog;
  16.     AddFiles: TButton;
  17.     procedure ApdTerminal1KeyDown(Sender: TObject; var Key: Word;
  18.       Shift: TShiftState);
  19.     procedure ApdProtocol1ProtocolError(CP: TObject; ErrorCode: Integer);
  20.     procedure AddFilesClick(Sender: TObject);
  21.     procedure ApdProtocol1ProtocolNextFile(CP: TObject;
  22.       var FName: OpenString);
  23.   private
  24.     { Private declarations }
  25.     FileList : TStringList;
  26.     FileIndex : Word;
  27.   public
  28.     { Public declarations }
  29.     constructor Create(AComponent : TComponent); override;
  30.   end;
  31.  
  32. var
  33.   ExampleFList: TExampleFList;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. constructor TExampleFList.Create(AComponent : TComponent);
  40. begin
  41.   inherited Create(AComponent);
  42.   FileList := TStringList.Create;
  43. end;
  44.  
  45. procedure TExampleFList.ApdTerminal1KeyDown(Sender: TObject; var Key: Word;
  46.   Shift: TShiftState);
  47. begin
  48.   if Key = VK_PRIOR then
  49.     ApdProtocol1.StartTransmit
  50.   else if Key = VK_NEXT then
  51.     ApdProtocol1.StartReceive;
  52. end;
  53.  
  54. procedure TExampleFList.ApdProtocol1ProtocolError(CP: TObject;
  55.   ErrorCode: Integer);
  56. begin
  57.   ShowMessage('Fatal protocol error: ' + ErrorMsg(ErrorCode));
  58. end;
  59.  
  60. procedure TExampleFList.AddFilesClick(Sender: TObject);
  61. begin
  62.   FileList.Add('EXFLIST.DPR');
  63.   FileList.Add('EXFLIST0.PAS');
  64.   FileList.Add('EXFLIST0.DFM');
  65.   FileIndex := 0;
  66.  
  67.   ApdTerminal1.StuffString('Files added!');
  68.   ApdTerminal1.ForcePaint;
  69.   ApdTerminal1.SetFocus;
  70. end;
  71.  
  72. procedure TExampleFList.ApdProtocol1ProtocolNextFile(CP: TObject;
  73.   var FName: OpenString);
  74. begin
  75.   try
  76.     FName := FileList[FileIndex];
  77.     Inc(FileIndex);
  78.   except
  79.     FName := '';
  80.   end;
  81. end;
  82.  
  83. end.
  84.